home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 03 (1990-03)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 03 (1990-03)(MindCraft Publishing)(Side A).po / FRAMER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  633b  |  2 lines

  1. 10  HOME : PRINT  CHR$(4);"PR#3": PRINT  CHR$(17): PRINT  CHR$(27): INVERSE : FOR K = 1 TO 20: FOR I = 1 TO 40  STEP 2: VTAB K: HTAB I: PRINT "WV": NEXT I: NEXT K: VTAB 5: PRINT  CHR$(24): FOR I = 4 TO 30: HTAB I: VTAB 5: PRINT " ": NEXT I: FOR I = 4 TO 30: VTAB 14: HTAB I: PRINT " ": NEXT I: FOR I = 5 TO 14: HTAB 4: VTAB I: PRINT " ": VTAB I: HTAB 30: PRINT " "
  2. 20  FOR I = 5 TO 14: VTAB I: HTAB 4: PRINT " ": VTAB I: HTAB 30: PRINT " ": NEXT I: FOR I = 6 TO 15: VTAB I: HTAB 31: NORMAL : PRINT " ": NEXT I: VTAB 15: FOR I = 5 TO 31: VTAB 15: HTAB I: PRINT " ": NEXT I: POKE 34,5: POKE 32,4: POKE 33,25: POKE 35,13: VTAB 10: HOME